home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #5 / utv2n5s1.d64 / wally's neighb. (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  3KB  |  160 lines
  1. 1 goto 100
  2. 2 poke 53296,255:print"[147][149]"
  3. 3 for x=1 to 17:print tab(4);"  [146]";tab(35);"  [146]":next
  4. 4 print"[153]                                        [146]"
  5. 5 print"";:forx=1to29:print"[192]";:next
  6. 6 print"";:forx=1 to 17:print"[215]";:next:print
  7. 7 forx=1to8:print"[215]               [215]":next
  8. 8 print"";:forx=1 to 17:print"[215]";:next:print
  9. 10 print"[158]do you want instructions?"
  10. 12 print"[150]by[157][157][157][157][157][157][157]joel epstein"
  11. 20 a=1065:b=129:for x=1 to 4:for y=1 to 8
  12. 25 poke a,b:b=b+1:a=a+1:next:b=b+24:a=a+32:next
  13. 30 a=1096:b=129:for x=1 to 4:for y=1 to 8
  14. 35 poke a,b:b=b+1:a=a+1:next:b=b+24:a=a+32:next
  15. 40 for x=55296to 55495:pokex,5:next
  16. 99 sys 928:return
  17. 100 print"[147][144][142]":poke12288,0:poke12289,0
  18. 110 if a=0then sys65418:poke808,234:poke650,128:clr
  19. 120 poke 53281,0:poke 53280,0
  20. 130 if a=0 then a=1:load"ss",8,1
  21. 135 poke 53265,peek(53265)and239:gosub2:print"[147]":poke53265,peek(53265)or16
  22. 145 gosub 210
  23. 150 poke43,1:poke44,16:poke4096,0
  24. 160 load"wally",8
  25. 190 new
  26. 200 rem
  27. 210 for i=249 to 255
  28. 220 if i=252 then i=253
  29. 230 for n=0 to 62
  30. 240 read q:poke (i*64+n),q:next
  31. 250 next
  32. 260 poke 53296,0
  33. 270 return
  34. 450 data 0,0,0
  35. 460 data 0,0,0
  36. 470 data 0,0,0
  37. 480 data 0,0,0
  38. 490 data 0,0,64
  39. 500 data 0,0,224
  40. 510 data 0,1,252
  41. 520 data 1,241,254
  42. 530 data 7,252,246
  43. 540 data 15,255,254
  44. 550 data 31,255,254
  45. 560 data 63,255,254
  46. 570 data 127,255,252
  47. 580 data 191,255,228
  48. 590 data 159,255,196
  49. 600 data 159,255,196
  50. 610 data 31,255,133
  51. 620 data 27,253,135
  52. 630 data 25,153,128
  53. 640 data 25,153,128
  54. 650 data 25,153,128
  55. 660 data 0,0,0
  56. 670 data 0,0,0
  57. 680 data 0,0,0
  58. 690 data 0,0,0
  59. 700 data 0,0,64
  60. 710 data 0,0,224
  61. 720 data 0,1,252
  62. 730 data 1,241,254
  63. 740 data 7,252,246
  64. 750 data 15,255,254
  65. 760 data 31,255,254
  66. 770 data 63,255,254
  67. 780 data 127,255,252
  68. 790 data 191,255,228
  69. 800 data 159,255,196
  70. 810 data 95,255,196
  71. 820 data 31,255,132
  72. 830 data 27,253,134
  73. 840 data 25,153,129
  74. 850 data 13,141,129
  75. 860 data 13,141,128
  76. 870 data 0,0,0
  77. 880 data 0,0,0
  78. 890 data 0,0,0
  79. 900 data 0,0,0
  80. 910 data 0,0,64
  81. 920 data 0,0,224
  82. 930 data 0,1,252
  83. 940 data 1,241,254
  84. 950 data 7,252,246
  85. 960 data 15,255,254
  86. 970 data 31,255,254
  87. 980 data 63,255,254
  88. 990 data 127,255,252
  89. 1000 data 191,255,228
  90. 1010 data 159,255,196
  91. 1020 data 159,255,196
  92. 1030 data 31,255,132
  93. 1040 data 27,253,132
  94. 1050 data 25,153,132
  95. 1060 data 24,216,196
  96. 1070 data 24,216,196
  97. 1080 data 0,0,0
  98. 1090 data 0,0,0
  99. 1100 data 0,0,0
  100. 1110 data 0,0,0
  101. 1120 data 2,0,0
  102. 1130 data 7,0,0
  103. 1140 data 63,128,0
  104. 1150 data 127,143,128
  105. 1160 data 111,63,224
  106. 1170 data 127,255,240
  107. 1180 data 127,255,248
  108. 1190 data 127,255,252
  109. 1200 data 63,255,254
  110. 1210 data 39,255,253
  111. 1220 data 35,255,249
  112. 1230 data 35,255,249
  113. 1240 data 161,255,248
  114. 1250 data 225,191,216
  115. 1260 data 1,153,152
  116. 1270 data 1,153,152
  117. 1280 data 1,153,152
  118. 1290 data 0,0,0
  119. 1300 data 0,0,0
  120. 1310 data 0,0,0
  121. 1320 data 0,0,0
  122. 1330 data 2,0,0
  123. 1340 data 7,0,0
  124. 1350 data 63,128,0
  125. 1360 data 127,143,128
  126. 1370 data 111,63,224
  127. 1380 data 127,255,240
  128. 1390 data 127,255,248
  129. 1400 data 127,255,252
  130. 1410 data 63,255,254
  131. 1420 data 39,255,253
  132. 1430 data 35,255,249
  133. 1440 data 35,255,250
  134. 1450 data 33,255,248
  135. 1460 data 97,191,216
  136. 1470 data 129,153,152
  137. 1480 data 129,177,176
  138. 1490 data 129,177,176
  139. 1500 data 0,0,0
  140. 1510 data 0,0,0
  141. 1520 data 0,0,0
  142. 1530 data 0,0,0
  143. 1540 data 2,0,0
  144. 1550 data 7,0,0
  145. 1560 data 63,128,0
  146. 1570 data 127,143,128
  147. 1580 data 111,63,224
  148. 1590 data 127,255,240
  149. 1600 data 127,255,248
  150. 1610 data 127,255,252
  151. 1620 data 63,255,254
  152. 1630 data 39,255,253
  153. 1640 data 35,255,249
  154. 1650 data 35,255,249
  155. 1660 data 33,255,248
  156. 1670 data 33,191,216
  157. 1680 data 33,153,152
  158. 1690 data 35,27,24
  159. 1700 data 35,27,24
  160.